home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b1.d64 / cursor.l < prev    next >
Text File  |  2007-02-28  |  367b  |  12 lines
  1. 9000 //
  2. 9010 PROC CURSOR(LINE,COL) CLOSED
  3. 9030 Z:=ZONE
  4. 9040 ZONE 0
  5. 9050 QUOTE'MODE:=212 //PET/CBM USE 205
  6. 9060 POKE QUOTE'MODE,0 //                MAKE SURE QUOTE MODE IS OFF
  7. 9070 PRINT "", //                       HOME CURSOR
  8. 9080 FOR L:=1 TO LINE-1 DO PRINT "", // CURSOR DOWN
  9. 9090 FOR C:=1 TO COL-1 DO PRINT "", //  CURSOR RIGHT
  10. 9100 ZONE Z
  11. 9110 ENDPROC CURSOR
  12.